10 POKE56,128:POKE56576,149:POKE53272,4:POKE648,128:POKE792,116:POKE793,164:CLR
15 PRINT"[142][147]          M O V I N G    S I G N"
17 PRINT"          [163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]
21 [153],"STEVEN DARNOLD
22 PRINT,"P.O. BOX 201
23 [153],"ALEXANDRA, NEW ZEALAND
25 DIMA%(58,4):FORI=826TO1010:POKEI,PEEK(I+3151):NEXT
27 FORX=0TO58:IFX/2=INT(X/2)THENSYS826
28 FORY=0TO4
29 READA%(X,Y)
30 NEXTY,X
32 DATA0,0,0,0,0
33 DATA0,0,122,0,0
34 DATA0,112,0,112,0
35 DATA20,127,20,127,20
36 DATA18,42,127,42,36
37 DATA98,100,8,19,35
38 DATA54,73,53,2,5
39 DATA0,0,16,32,64
40 DATA0,0,28,34,65
41 DATA65,34,28,0,0
42 DATA34,20,127,20,34
43 DATA8,8,127,8,8
44 DATA0,1,6,0,0
45 DATA8,8,8,8,8
46 DATA0,0,1,0,0
47 DATA2,4,8,16,32
48 DATA62,65,65,65,62
49 DATA0,33,127,1,0
50 DATA39,73,73,73,49
51 DATA66,65,73,89,102
52 DATA12,20,36,127,4
53 DATA114,81,81,81,78
54 DATA30,41,73,73,70
55 DATA65,66,68,72,112
56 DATA54,73,73,73,54
57 DATA49,73,73,74,60
58 DATA0,0,20,0,0
59 DATA0,1,22,0,0
60 DATA0,8,20,34,65
61 DATA20,20,20,20,20
62 DATA0,65,34,20,8
63 DATA32,64,133,72,48
64 DATA28,34,93,85,61
65 DATA63,68,68,68,63
66 DATA127,73,73,73,54
67 DATA62,65,65,65,34
68 DATA127,65,65,65,62
69 DATA127,73,73,65,65
70 DATA127,72,72,72,64
71 DATA62,65,65,69,70
72 DATA127,8,8,8,127
73 DATA0,65,127,65,0
74 DATA2,1,1,1,126
75 DATA127,8,20,34,65
76 DATA127,1,1,1,1
77 DATA127,32,24,32,127
78 DATA127,16,8,4,127
79 DATA62,65,65,65,62
80 DATA127,72,72,72,48
81 DATA62,65,69,66,61
82 DATA127,72,76,74,49
83 DATA50,73,73,73,38
84 DATA64,64,127,64,64
85 DATA126,1,1,1,126
86 DATA120,6,1,6,120
87 DATA127,2,12,2,127
88 DATA99,20,8,20,99
89 DATA96,16,15,16,96
90 DATA67,69,73,81,97
100 GOSUB500:PRINT"TYPE IN THE MESSAGE YOU WANT TO DISPLAY"
200 POKE198,0:POKE204,0
205 WAIT198,7:GETB$:B=ASC(B$):IFB>90THEN205
210 ZL=LEN(A$):IFZL=255ANDB>20THEN205
220 IFB=13ANDZLTHEN300
230 IFB=20ANDZLTHENPRINTB$;:A$=LEFT$(A$,LEN(A$)-1):GOTO205
235 IFB<32THEN205
240 PRINTB$;:A$=A$+B$:GOTO205
300 POKE204,1:GOSUB500
305 FORK=1TOLEN(A$)
310 Y=ASC(MID$(A$,K,1))-32
315 FORJ=0TO4
316 POKE1010,A%(Y,J)
320 SYS904
322 SYS826
325 NEXT
330 SYS826:SYS826
340 NEXT
400 FORK=1TO80
410 SYS826
415 FORI=1TO10:NEXT
420 NEXT
430 GOTO305
500 PRINT"[147]":FORI=1TO99:PRINT"         ";:NEXT:RETURN